home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / borg.arc / BORG.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-12-29  |  5.6 KB  |  165 lines
  1. 10  DEFINT A-Z
  2. 20  FOR I=1 TO 10:KEY I,"":NEXT    'turn off fnkeys
  3. 30  KEY OFF:DIM SCN$(88):PIK$=SPACE$(80)
  4. 40  LINES=88
  5. 50  COLOR 7,0
  6. 60  CLS:OPEN "b:menu1.txt" AS 1 LEN=80
  7. 70  FIELD 1, 80 AS IL$
  8. 80  FOR LIN=1 TO LINES
  9. 90  GET #1,LIN:SCN$(LIN)=IL$
  10. 100  NEXT LIN
  11. 110  SCOLD=1:SCNUM=1
  12. 120  '******display menu 1*****
  13. 130  CP=POS(0):CL=CSRLIN
  14. 140  FOR SCL=1 TO 23
  15. 150  LOCATE SCL,1,0:PRINT SCN$(SCNUM+SCL-1);
  16. 160  NEXT SCL
  17. 170  LOCATE 24,1:PRINT MID$(SCN$(SCNUM+23),1,79);
  18. 180  CLOSE #1
  19. 190  GOSUB 1400
  20. 200  FOR I=1 TO 10:KEY(I) ON:NEXT I      'reactivate fnkeys
  21. 210  DEF SEG=0:POKE 1050, PEEK(1052)
  22. 220  ON KEY(1) GOSUB 350   'menu installation subr
  23. 230  ON KEY(2) GOSUB 990  'instructions
  24. 240  ON KEY(3) GOSUB 1320  'games menu
  25. 250  ON KEY(4) GOSUB 1330  'graphics menu
  26. 260  ON KEY(5) GOSUB 1340  'glass menu
  27. 270  ON KEY(6) GOSUB 1350  'exit to BASIC
  28. 280  ON KEY(7) GOSUB 1360  'exit to DOS
  29. 290  ON KEY(8) GOSUB 1370
  30. 300  ON KEY(9) GOSUB 1380
  31. 310  ON KEY(10)GOSUB 1390
  32. 320  ON ERROR GOTO 1600
  33. 330  GOTO 220
  34. 340  END
  35. 350  FOR W=3 TO 12
  36. 360  LOCATE W,6:PRINT"                                                                     "
  37. 370  NEXT W
  38. 380  LOCATE 3,20:PRINT"INSTALLING NEW MENUS:"
  39. 390  LOCATE 4,9:PRINT"  New menus can be quickly installed by answering"
  40. 400  LOCATE 5,7:PRINT"questions as they are asked.Your present definitions"
  41. 410  LOCATE 6,7:PRINT"for each function key are shown in the boxes below."
  42. 420  LOCATE 7,7:PRINT"Your editing options are; (1)no change,and (2)change."
  43. 430  LOCATE 8,7:PRINT"Just touch the desired key.In the case of (1),no change,"
  44. 440  LOCATE 9,7:PRINT"the program will move on to the next function key."
  45. 450  LOCATE 10,7:PRINT"If you hit (2),change, you will be asked to input the"
  46. 460  LOCATE 11,7:PRINT"name of the menu as you want it displayed, and also"
  47. 470  LOCATE 12,20:PRINT"PRESS ANY KEY FOR MORE INSTRUCTIONS";
  48. 480  DEF SEG=0:POKE 1050, PEEK(1052)
  49. 490  CMD$=INKEY$:IF CMD$="" THEN 490
  50. 500  FOR W=3 TO 12
  51. 510  LOCATE W,6:PRINT"                                                                     "
  52. 520  NEXT W
  53. 530  LOCATE 3,7:PRINT"the drive and file ID of the menu program itself."
  54. 540  LOCATE 4,7:PRINT"For example, if you want to change F9 to a database"
  55. 550  LOCATE 5,7:PRINT"menu you would answer <DATABASE MENU> at the NAME prompt"
  56. 560  LOCATE 6,7:PRINT"and if the menu program is on drive B: and is called"
  57. 570  LOCATE 7,7:PRINT"'DBMEN.BAS' YOU WOULD INPUT <B:DBMEN.BAS>"
  58. 580  LOCATE 8,7:PRINT"at the FILE prompt.Similar installation routines are built"
  59. 590  LOCATE 9,7:PRINT"into existing menus to insert individual programs."
  60. 600  LOCATE 10,7:PRINT"Unfortunately,you will have to write the menu yourself."
  61. 610  LOCATE 11,7:PRINT"This program only supports chaining,not program writing."
  62. 620  LOCATE 12,20:PRINT"PRESS ANY KEY FOR MORE INSTRUCTIONS";
  63. 630  DEF SEG=0:POKE 1050, PEEK(1052)
  64. 640  CMD$=INKEY$:IF CMD$="" THEN 640
  65. 650  FOR W=3 TO 12
  66. 660  LOCATE W,6:PRINT"                                                                     "
  67. 670  NEXT W
  68. 680  LOCATE 3,7:PRINT"Also you should remember to modify each program"
  69. 690  LOCATE 4,7:PRINT"within a menu to chain back to the menu program."
  70. 700  LOCATE 12,7:PRINT"PRESS C/R TO CONTINUE OR SPACEBAR TO GO BACK TO MAIN MENU";
  71. 710  DEF SEG=0: POKE 1050, PEEK(1052)
  72. 720  CMD$=INKEY$:IF CMD$="" THEN 720
  73. 730  IF CMD$=CHR$(13) THEN 750
  74. 740  IF CMD$=CHR$(32) THEN 940
  75. 750  FOR X=1 TO 10
  76. 760  FOR W=3 TO 12
  77. 770  LOCATE W,6:PRINT"                                                                     "
  78. 780  NEXT W
  79. 790  LOCATE 3,20:PRINT"FUNCTION KEY";X
  80. 800  LOCATE 5,10:PRINT"(1)no change       (2)change";
  81. 810  CMD$=INKEY$:IF CMD$="" THEN 810
  82. 820  IF CMD$=CHR$(49) THEN 890
  83. 830  IF CMD$=CHR$(50) THEN 850
  84. 840  GOTO 810
  85. 850  LOCATE 7,10:PRINT"input menu NAME";
  86. 860  INPUT L$(X)
  87. 870  LOCATE 8,10:PRINT"input menu FILE (include drive!)";
  88. 880  INPUT F$(X)
  89. 890  NEXT
  90. 900  OPEN "o",#1,"b:kborg.dat"
  91. 910  FOR X=1 TO 10:PRINT #1,L$(X):NEXT
  92. 920  FOR X=1 TO 10:PRINT#1,F$(X):NEXT
  93. 930  CLOSE#1
  94. 940  FOR W=3 TO 12
  95. 950  LOCATE W,6:PRINT"                                                                     "
  96. 960  NEXT W
  97. 970  LOCATE 7,20:PRINT"CHOOSE AN OPTION"
  98. 980  RETURN
  99. 990  FOR W=3 TO 12
  100. 1000  LOCATE W,6:PRINT"                                                                     "
  101. 1010  NEXT W
  102. 1020  LOCATE 3,9:PRINT"The Basic File Organizer (BORG.BAS) is designed to make it"
  103. 1030  LOCATE 4,7:PRINT"easier to use BASIC programs. All of the available programs"
  104. 1040  LOCATE 5,7:PRINT"can be run by touching a single function key instead of the"
  105. 1050  LOCATE 6,7:PRINT"usual routine of loading and running the file."
  106. 1060  LOCATE 7,9:PRINT"Using this program is easy. Just hit the desired function"
  107. 1070  LOCATE 8,7:PRINT"key for your desired action.No other keys will work."
  108. 1080  LOCATE 9,7:PRINT"For example, to look at the available game programs for running"
  109. 1090  LOCATE 10,7:PRINT"just press F3. A menu of game programs will be displayed."
  110. 1100  LOCATE 11,7:PRINT"You can run the desired game by pressing the correct function key."
  111. 1110  LOCATE 12,20:PRINT"PRESS ANY KEY TO CONTINUE";
  112. 1120  DEF SEG=0: POKE 1050, PEEK(1052)
  113. 1130  CMD$=INKEY$:IF CMD$="" THEN 1130
  114. 1140  FOR W=3 TO 12
  115. 1150  LOCATE W,6:PRINT"                                                                     "
  116. 1160  NEXT W
  117. 1170  LOCATE 3,7:PRINT"When the desired program is over it will return to its"
  118. 1180  LOCATE 4,7:PRINT"appropriate menu to allow further choices."
  119. 1190  LOCATE 5,7:PRINT"From the main menu, F1(File set-up) allows the user to enter"
  120. 1200  LOCATE 6,7:PRINT"new menus to be managed and set up.For the present, all"
  121. 1210  LOCATE 7,7:PRINT"new menus and programs will have to be written individually"
  122. 1220  LOCATE 8,7:PRINT"New menus can be easily created using"
  123. 1230  LOCATE 9,7:PRINT"GLYPHE.BAS, which can be accessed through the graphics menu."
  124. 1240  LOCATE 12,20:PRINT"HIT ANY KEY TO QUIT INSTRUCTIONS";
  125. 1250  DEF SEG=0:POKE 1050, PEEK(1052)
  126. 1260  CMD$=INKEY$:IF CMD$="" THEN 1260
  127. 1270  FOR W=3 TO 12
  128. 1280  LOCATE W,6:PRINT"                                                                     "
  129. 1290  NEXT W
  130. 1300  LOCATE 7,20:PRINT"CHOOSE AN OPTION"
  131. 1310  RETURN
  132. 1320  CHAIN F$(3)
  133. 1330  CHAIN F$(4)
  134. 1340  CHAIN F$(5)
  135. 1350  CLS:END
  136. 1360  CLS:SYSTEM
  137. 1370  CHAIN F$(8)
  138. 1380  CHAIN F$(9)
  139. 1390  CHAIN F$(10)
  140. 1400  OPEN "i",#1,"b:kborg.dat"
  141. 1410  FOR X=1 TO 10
  142. 1420  IF EOF(1) THEN CLOSE:GOTO 1450
  143. 1430  INPUT#1, L$(X)
  144. 1440  NEXT
  145. 1450  LOCATE 14,14:PRINT L$(1)
  146. 1460  LOCATE 14,49:PRINT L$(2)
  147. 1470  LOCATE 16,14:PRINT L$(3)
  148. 1480  LOCATE 16,49:PRINT L$(4)
  149. 1490  LOCATE 18,14:PRINT L$(5)
  150. 1500  LOCATE 18,49:PRINT L$(6)
  151. 1510  LOCATE 20,14:PRINT L$(7)
  152. 1520  LOCATE 20,49:PRINT L$(8)
  153. 1530  LOCATE 22,14:PRINT L$(9)
  154. 1540  LOCATE 22,49:PRINT L$(10)
  155. 1550  FOR X=1 TO 10
  156. 1560  INPUT #1, F$(X)
  157. 1570  NEXT X
  158. 1580  CLOSE#1
  159. 1590  RETURN
  160. 1600  LOCATE 12,10:PRINT"THIS FUNCTION KEY NOT ACTIVE.PRESS ANY KEY TO CONTINUE"
  161. 1610  DEF SEG=0:POKE 1050, PEEK(1052)
  162. 1620  CMD$=INKEY$:IF CMD$="" THEN 1620
  163. 1630  LOCATE 12,10:PRINT"                                                       "
  164. 1640  RESUME 210
  165.